Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Organization/Any Calendar/background_3657.txt

Text File | 1991-01-15 | 22.4 KB | 744 lines

-- background: 3657 from stack: in
-- bmap block id: 4158
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openbackground
  set userlevel to 2
  hide menubar
end openbackground



-- part 5 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=131 top=12 right=42 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 14
-- text size: 24
-- style flags: 256
-- line height: 32
-- part name: year


-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=406 top=12 right=44 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calendar
----- HyperTalk script -----
on mouseUp
  if background field year is empty then
    answer "PLEASE ENTER THE YEAR FIRST!" with "OK"
    click at loc of background field year
  else
    -- Clean Up
    get background field year
    put it into yearvar
    visual effect wipe left slowly
    go to card months1
    put empty into background field month1
    put empty into background field month2
    put empty into background field month3
    put empty into background field month4
    put empty into background field month5
    put empty into background field month6
    put yearvar into background field year
    -- Figure out beginning of year
    put abs (yearvar - 2000) into difference
    put ((difference DIV 4) - (difference DIV 100)) into leapyears
    put (leapyears + (difference DIV 400) + 1) into leapyears
    put 7 into firstyear
    if yearvar > 2000 then
      put (7 + difference + leapyears) into firstyear
      repeat while firstyear > 7
        put firstyear - 7 into firstyear
      end repeat
    else
      if yearvar < 2000 then
        put (7 - difference -leapyears + 1) into firstyear
        repeat while firstyear < 1
          put firstyear + 7 into firstyear
        end repeat
      end if
    end if
    -- Put months
    -- January
    put 31 into daysmonth
    put firstyear into firstmonth
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month1
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month1
        else
          put temp & "   " into line row of background field month1
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month1
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month1
          else
            put temp & daycount into line row of background field month1
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month1
          else
            put temp & " " & daycount into line row of background field month1
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    -- February
    put (firstmonth2 + 31) into firstmonth
    put firstmonth into firstmonth2
    if (yearvar MOD 4) = 0 then
      if (yearvar MOD 100) = 0 then
        if (yearvar MOD 400) = 0 then
          put 29 into daysmonth
        else
          put 28 into daysmonth
        end if
      else
        put 29 into daysmonth
      end if
    else
      put 28 into daysmonth
    end if
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month2
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month2        else
          put temp & "   " into line row of background field month2
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month2
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month2
          else
            put temp & daycount into line row of background field month2
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month2
          else
            put temp & " " & daycount into line row of background field month2
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    --- March
    put 31 into daysmonth
    if (yearvar MOD 4) =0 then
      if (yearvar MOD 100) = 0 then
        if (yearvar MOD 400) = 0 then
          put (firstmonth2 + 29) into firstmonth
        else
          put (firstmonth2 + 28) into firstmonth
        end if
      else
        put (firstmonth2 + 29) into firstmonth
      end if
    else
      put (firstmonth2 + 28) into firstmonth
    end if
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month3
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month3
        else
          put temp & "   " into line row of background field month3
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month3
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month3
          else
            put temp & daycount into line row of background field month3
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month3
          else
            put temp & " " & daycount into line row of background field month3
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    --- April
    put 30 into daysmonth
    put (firstmonth2 + 31) into firstmonth
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month4
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month4
        else
          put temp & "   " into line row of background field month4
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month4
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month4
          else
            put temp & daycount into line row of background field month4
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month4
          else
            put temp & " " & daycount into line row of background field month4
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    --- May
    put 31 into daysmonth
    put (firstmonth2 + 30) into firstmonth
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month5
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month5
        else
          put temp & "   " into line row of background field month5
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month5
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month5
          else
            put temp & daycount into line row of background field month5
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month5
          else
            put temp & " " & daycount into line row of background field month5
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    --- June
    put 30 into daysmonth
    put (firstmonth2 + 31) into firstmonth
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month6
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month6
        else
          put temp & "   " into line row of background field month6
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month6
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month6
          else
            put temp & daycount into line row of background field month6
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month6
          else
            put temp & " " & daycount into line row of background field month6
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    -- Clean Up
    visual effect wipe left slowly
    go to card months2
    put empty into background field month1
    put empty into background field month2
    put empty into background field month3
    put empty into background field month4
    put empty into background field month5
    put empty into background field month6
    put yearvar into background field year
    --- July
    put 31 into daysmonth
    put (firstmonth2 + 30) into firstmonth
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month1
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month1
        else
          put temp & "   " into line row of background field month1
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month1
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month1
          else
            put temp & daycount into line row of background field month1
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month1
          else
            put temp & " " & daycount into line row of background field month1
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    --- August
    put 31 into daysmonth
    put (firstmonth2 + 31) into firstmonth
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month2
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month2        else
          put temp & "   " into line row of background field month2
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month2
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month2
          else
            put temp & daycount into line row of background field month2
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month2
          else
            put temp & " " & daycount into line row of background field month2
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    --- September
    put 30 into daysmonth
    put (firstmonth2 + 31) into firstmonth
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month3
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month3
        else
          put temp & "   " into line row of background field month3
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month3
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month3
          else
            put temp & daycount into line row of background field month3
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month3
          else
            put temp & " " & daycount into line row of background field month3
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    --- October
    put 31 into daysmonth
    put (firstmonth2 + 30) into firstmonth
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month4
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month4
        else
          put temp & "   " into line row of background field month4
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month4
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month4
          else
            put temp & daycount into line row of background field month4
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month4
          else
            put temp & " " & daycount into line row of background field month4
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    --- November
    put 30 into daysmonth
    put (firstmonth2 + 31) into firstmonth
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month5
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month5
        else
          put temp & "   " into line row of background field month5
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month5
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month5
          else
            put temp & daycount into line row of background field month5
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month5
          else
            put temp & " " & daycount into line row of background field month5
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    --- December
    put 31 into daysmonth
    put (firstmonth2 + 30) into firstmonth
    put firstmonth into firstmonth2
    repeat while firstmonth > 7
      put (firstmonth - 7) into firstmonth
    end repeat
    put 1 into hloc
    put 1 into daycount
    put 1 into row
    repeat while daycount < (daysmonth + 1)
      repeat while hloc < firstmonth
        get line row of background field month6
        put it into temp
        if hloc = 1 then
          put temp & "  " into line row of background field month6
        else
          put temp & "   " into line row of background field month6
        end if
        put (1 + hloc) into hloc
      end repeat
      repeat while (hloc < 8) and (daycount < (daysmonth + 1))
        get line row of background field month6
        put it into temp
        if hloc = 1 then
          if daycount < 10 then
            put temp & " " & daycount into line row of background field month6
          else
            put temp & daycount into line row of background field month6
          end if
        else
          if daycount < 10 then
            put temp & "  " & daycount into line row of background field month6
          else
            put temp & " " & daycount into line row of background field month6
          end if
        end if
        put (daycount + 1) into daycount
        put (hloc + 1) into hloc
      end repeat
      put 1 into hloc
      put (1 + row) into row
      put 0 into firstmonth
    end repeat
    ---
  end if
end mouseUp


-- part 9 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=20 top=105 right=179 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: month1


-- part 13 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=186 top=105 right=179 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: month2


-- part 14 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=105 right=179 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: month3


-- part 15 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=20 top=216 right=290 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: month4


-- part 16 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=186 top=216 right=290 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: month5


-- part 17 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=216 right=290 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: month6


-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=18 top=320 right=341 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: More Info
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go to first card
end mouseUp